﻿Public Class PersonelIhtiyatSandigi
    Inherits ProcessReport

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        Select Case e.EventType
            Case EventType.Initialize
				Text = "İhtiyat Sandigi Dökümleri"
                InitialHelp = "Maaş ödeme dönemini girin."
                AddCombo("donem", "Dönem", Personel.MaasDonemleriPersonelSource, "nl", "--first--", "Maaş ödeme dönemini seçmeniz gerekir.")
            Case EventType.ValidateForm
                Rs = Personel.IhtiyatSandigiKesintileri(Remote, Mid(Input("donem"), 1, 4), Mid(Input("donem"), 5, 2))
                e.Result = True
            Case EventType.ReportHeader
                Report.NoPageNumbers = True
                Report.SetColumns("", "1", "c", "")
                Report.Print("İHTİYAT SANDIĞI DAİRESİ").Print("AYLIK YATIRIM BORDROSU")
            Case EventType.PageHeader
                Report.BeginBorders()
                Report.SetColumns("Sıra;İht.San.No.;Kimlik No.;Adı;Soyadı;Aylık Brüt Kazanç (TL);%4 Prim (TL);%4 Depozit (TL);%8 Toplam (TL)", "1;3;3;4;4;3;3;3;3", "c;c;c;l;l;m;m;m;m", "--")
            Case EventType.ReportDetail
                Dim i As Integer = 1
                Do Until Rs.EOF
                    Report.Print(i, Rs("ihsno"), Rs("kimlik"), Rs("adi"), Rs("soyadi"), Rs("pek"), Rs("pek") * 0.04, Rs("pek") * 0.04, Rs("pek") * 0.08)
                    Rs.MoveNext()
                    i += 1
                Loop
                Report.Print("<cs=5><r>GENEL TOPLAM", Rs.Sum("pek"), Rs.Sum("pek") * 0.04, Rs.Sum("pek") * 0.04, Rs.Sum("pek") * 0.08).EndBorders()
                Report.SkipLine()
                Report.PrintParagraph("Bu bordroda yazılı bilgilerin doğruluğunu kabul eder ve beyan ederim.")
        End Select
    End Sub

End Class
